home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / EuraTools.lha / EuraTools / ARexx / TlnTest.ecfg < prev    next >
Encoding:
Text File  |  1997-05-16  |  1.6 KB  |  57 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      TlnTest.ecfg                    EuraConfig-Script       **
  4. **      Testprogramm für Teilnehmer-Flags                       **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION CHECK=2'               /* Richtige Kommando-Version? */
  19.  
  20. flags.0 = "Nein"                /* BOOL -> Text */
  21. flags.1 = "Ja"
  22.  
  23. desc.0  = "Masterberechtigung"  /* Flag -> Text */
  24. desc.1  = "Aufschaltschutz"
  25. desc.2  = "Aufschalt"
  26. desc.3  = "Rufverteilung Tag, Anlage A"
  27. desc.4  = "Rufverteilung Tag, Anlage B"
  28. desc.5  = "Rufverteilung Nacht, Anlage A"
  29. desc.6  = "Rufverteilung Nacht, Anlage B"
  30. desc.7  = "Türruf 1, Anlage A"
  31. desc.8  = "Türruf 1, Anlage B"
  32. desc.9  = "Türruf 2, Anlage A"
  33. desc.10 = "Türruf 2, Anlage B"
  34. desc.11 = "Rufweiterschaltung, Anlage A"
  35. desc.12 = "Rufweiterschaltung, Anlage B"
  36. desc.13 = "Zweitwecker 1"
  37. desc.14 = "Zweitwecker 2"
  38. desc.15 = "Gebührendruck"
  39. desc.16 = "Komplette Rufnummer drucken"
  40. desc.17 = "Gekürzte Rufnummer drucken"
  41. desc.18 = "Gebührenimpuls"
  42.  
  43. SAY "Welcher Teilnehmer?"
  44. PARSE PULL tln
  45.  
  46. DO flag = 0 TO 18
  47.   'TLNFLAGS "'||tln||'" "'||flag||'"'
  48.   SAY Left(desc.flag,30)||": "||flags.result
  49. END
  50.  
  51. SAY ""
  52. SAY ""
  53. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  54.  
  55. EXIT
  56.  
  57.